home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TR-XREAD.ZIP / XREAD001.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1997-01-24  |  10KB  |  556 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.     String   STRING016
  39.     String   STRING017
  40.     String   STRING018
  41.     String   STRING019
  42.     String   STRING020
  43.     String   STRING021
  44.  
  45. ;------------------------------------------------------------------------------
  46.  
  47.     Tokenize TokenStr()
  48.     If (TokCount() > 0) Then
  49.         KbdStuff "R;" + GetToken() + Chr(13)
  50.         End
  51.     Endif
  52.     If (Exist(PPEPath() + "XREAD001.PCB")) Goto LABEL001
  53.     FCreate 2, PPEPath() + "XREAD001.PCB", 2, 0
  54.     FPutLn 2, "@X07x@X0Fpress@X08.@X07r@X0Fead@X08.@X07m@X0Fsg@X07                                                                "
  55.     FPutLn 2, "@X0C--@X06--@X0C--@X06-----@X0C-@X06-----------------@X07                                                  "
  56.     FPutLn 2, ""
  57.     FPutLn 2, "@X08"
  58.     FPutLn 2, "@X0C----@X06--@X0C--@X06----@X0C-@X06----------------@X07                                                  "
  59.     FPutLn 2, "@X03u@X0Bser@X08 @X03i@X0Bnput@X08 --@X07                                                                  "
  60.     FClose 2
  61.     :LABEL001
  62.     If (!Exist(PPEPath() + "XREAD001.CFG")) FCreate 1, PPEPath() + "XREAD001.CFG", 2, 0
  63.     FPutLn 1, "@X3B"
  64.     FPutLn 1, "@X08"
  65.     FPutLn 1, "15 6"
  66.     FPutLn 1, "1 3"
  67.     FPutLn 1, "YES"
  68.     FPutLn 1, ""
  69.     FPutLn 1, "Configuration File!"
  70.     FPutLn 1, "----------------------------------------------------------------------------"
  71.     FPutLn 1, "Line One: Colour of Selected Lightbar"
  72.     FPutLn 1, "Line Two: Coloir of Unselected Lightbar"
  73.     FPutLn 1, "Line Three: x/y co-ord of users input"
  74.     FPutLn 1, "Line Four: x/y co-ord of the lightbar"
  75.     FPutLn 1, "Line Five: If YES, then the PPE will use both xpert/ammature modes"
  76.     FPutLn 1, "           if this is NO, then the PPE will only use the ammature mode"
  77.     FClose 1
  78.     FOpen 3, PPEPath() + "XREAD001.CFG", 2, 0
  79.     FGet 3, STRING004
  80.     FGet 3, STRING005
  81.     FGet 3, STRING006
  82.     FGet 3, STRING007
  83.     FGet 3, STRING020
  84.     FGet 3, STRING021
  85.     FClose 3
  86.     If (Upper(STRING020) == "YES") Then
  87.         STRING001 = " expert read command prompt "
  88.         STRING002 = " amature read utility       "
  89.         Print "@POFF@@CLS@"
  90.         If (!Exist(PPEPath() + "XREAD001.PCB")) PrintLn "@X0Cerror! @X04- XRead.PPE could not find its graphics file `XREAD001.PCB'"
  91.         PrintLn "@X08Please consult with your system operator asap!"
  92.         PrintLn ""
  93.         Wait
  94.         End
  95.         DispFile PPEPath() + "XREAD001.PCB", 1
  96.         Tokenize STRING006
  97.         INTEGER001 = GetToken()
  98.         INTEGER002 = GetToken()
  99.         Tokenize STRING007
  100.         INTEGER003 = GetToken()
  101.         INTEGER004 = GetToken()
  102.         :LABEL002
  103.         AnsiPos INTEGER003, INTEGER004
  104.         Print STRING004 + STRING001
  105.         AnsiPos INTEGER003, INTEGER004 + 1
  106.         Print STRING005 + STRING002
  107.         AnsiPos INTEGER001, INTEGER002
  108.         Color 0
  109.         Print " "
  110.         Backup 1
  111.         :LABEL003
  112.         STRING003 = ""
  113.         While ((STRING003 == "")) STRING003 = Inkey()
  114.         If (STRING003 == Chr(27)) Print "@X08esc  "
  115.         Color 0
  116.         Print " "
  117.         Backup 1
  118.         Delay 5
  119.         End
  120.         While ((STRING003 == "DOWN")) Print "@X08 down "
  121.         Color 0
  122.         Print " "
  123.         Backup 1
  124.         Goto LABEL004
  125.         While ((STRING003 == "UP")) Print "@X08 up   "
  126.         Color 0
  127.         Print " "
  128.         Backup 1
  129.         Goto LABEL004
  130.         While ((STRING003 == Chr(13))) Print "@X08 enter "
  131.         Color 0
  132.         Print " "
  133.         Backup 1
  134.         Delay 3
  135.         Goto LABEL006
  136.         Goto LABEL003
  137.         :LABEL004
  138.         AnsiPos INTEGER003, INTEGER004
  139.         Print STRING005 + STRING001
  140.         AnsiPos INTEGER003, INTEGER004 + 1
  141.         Print STRING004 + STRING002
  142.         AnsiPos INTEGER001, INTEGER002
  143.         Color 0
  144.         Print " "
  145.         Backup 1
  146.         :LABEL005
  147.         STRING003 = ""
  148.         While ((STRING003 == "")) STRING003 = Inkey()
  149.         If (STRING003 == Chr(27)) Print "@X08esc  "
  150.         Color 0
  151.         Print " "
  152.         Backup 1
  153.         Delay 5
  154.         End
  155.         While ((STRING003 == "DOWN")) Print "@X08 down "
  156.         Color 0
  157.         Print " "
  158.         Backup 1
  159.         Goto LABEL002
  160.         While ((STRING003 == "UP")) Print "@X08 up   "
  161.         Color 0
  162.         Print " "
  163.         Backup 1
  164.         Goto LABEL002
  165.         While ((STRING003 == Chr(13))) Print "@X08 enter "
  166.         Color 0
  167.         Print " "
  168.         Backup 1
  169.         Delay 3
  170.         Goto LABEL007
  171.         Goto LABEL005
  172.         :LABEL006
  173.         AnsiPos 1, 8
  174.         KbdStuff "R" + Chr(13)
  175.         End
  176.     Endif
  177.     :LABEL007
  178.     Print "@POFF@@CLS@"
  179.     If (Exist(PPEPath() + "XREAD2.PCB")) Delete PPEPath() + "XREAD2.PCB"
  180.     If (!Exist(PPEPath() + "Xread2.pcb")) FCreate 1, PPEPath() + "XREAD2.PCB", 2, 0
  181.     FPutLn 1, "@X08     ────────────────────────────────────────────────────────────────────     @X07 "
  182.     FPutLn 1, "        @X08│@X40 @X4C             xpress amature read msg utility!               @X08│ @X07       "
  183.     FPutLn 1, "       @X08─────────────────────────────────────────────────────────────────@X07       "
  184.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  185.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  186.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  187.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  188.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  189.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  190.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  191.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  192.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  193.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  194.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  195.     FPutLn 1, "        @X08│@X07                                                             @X08│@X07        "
  196.     FPutLn 1, "@X08     @X07 @X08───────────────────────────────────────────────────────────────────@X07  @X08 @X07   "
  197.     FPutLn 1, ""
  198.     FClose 1
  199.     DispFile PPEPath() + "Xread2.pcb", 1
  200.     STRING008 = " Scan all selected conferences                            "
  201.     STRING009 = " Scan all conferences that you have access to             "
  202.     STRING010 = " Read messages from a user                                "
  203.     STRING011 = " New Messages by date                                     "
  204.     STRING012 = " Read new messages                                        "
  205.     STRING013 = " Read messages to a user                                  "
  206.     STRING014 = " Search messages for specific text                        "
  207.     STRING015 = " Read unread messages                                     "
  208.     STRING016 = " Search messages to or from a particular user             "
  209.     STRING017 = " Scan messages in conferences where you have mail waiting @X07"
  210.     STRING018 = " Read messages addressed to you                           "
  211.     STRING019 = " Read messages to you or to ALL                           "
  212.     AnsiPos 11, 6
  213.     Print STRING005 + STRING010
  214.     AnsiPos 11, 7
  215.     Print STRING005 + STRING011
  216.     AnsiPos 11, 8
  217.     Print STRING005 + STRING012
  218.     AnsiPos 11, 9
  219.     Print STRING005 + STRING013
  220.     AnsiPos 11, 10
  221.     Print STRING005 + STRING014
  222.     AnsiPos 11, 11
  223.     Print STRING005 + STRING015
  224.     AnsiPos 11, 12
  225.     Print STRING005 + STRING016
  226.     AnsiPos 11, 13
  227.     Print STRING005 + STRING017
  228.     AnsiPos 11, 14
  229.     Print STRING005 + STRING018
  230.     :LABEL008
  231.     AnsiPos 11, 4
  232.     Print STRING004 + STRING008
  233.     AnsiPos 11, 5
  234.     Print STRING005 + STRING009
  235.     AnsiPos 11, 15
  236.     Print STRING005 + STRING019
  237.     Color 0
  238.     Print " "
  239.     Backup 1
  240.     :LABEL009
  241.     STRING003 = ""
  242.     While ((STRING003 == "")) STRING003 = Inkey()
  243.     If (STRING003 == Chr(13)) Goto LABEL032
  244.     If (STRING003 == Chr(27)) End
  245.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL010
  246.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL030
  247.     Goto LABEL009
  248.     :LABEL010
  249.     AnsiPos 11, 4
  250.     Print STRING005 + STRING008
  251.     AnsiPos 11, 5
  252.     Print STRING004 + STRING009
  253.     AnsiPos 11, 6
  254.     Print STRING005 + STRING010
  255.     Color 0
  256.     Print " "
  257.     Backup 1
  258.     :LABEL011
  259.     STRING003 = ""
  260.     While ((STRING003 == "")) STRING003 = Inkey()
  261.     If (STRING003 == Chr(13)) Goto LABEL033
  262.     If (STRING003 == Chr(27)) End
  263.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL012
  264.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL008
  265.     Goto LABEL011
  266.     :LABEL012
  267.     AnsiPos 11, 5
  268.     Print STRING005 + STRING009
  269.     AnsiPos 11, 6
  270.     Print STRING004 + STRING010
  271.     AnsiPos 11, 7
  272.     Print STRING005 + STRING011
  273.     Color 0
  274.     Print " "
  275.     Backup 1
  276.     :LABEL013
  277.     STRING003 = ""
  278.     While ((STRING003 == "")) STRING003 = Inkey()
  279.     If (STRING003 == Chr(13)) Goto LABEL034
  280.     If (STRING003 == Chr(27)) End
  281.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL014
  282.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL010
  283.     Goto LABEL013
  284.     :LABEL014
  285.     AnsiPos 11, 6
  286.     Print STRING005 + STRING010
  287.     AnsiPos 11, 7
  288.     Print STRING004 + STRING011
  289.     AnsiPos 11, 8
  290.     Print STRING005 + STRING012
  291.     Color 0
  292.     Print " "
  293.     Backup 1
  294.     :LABEL015
  295.     STRING003 = ""
  296.     While ((STRING003 == "")) STRING003 = Inkey()
  297.     If (STRING003 == Chr(13)) Goto LABEL035
  298.     If (STRING003 == Chr(27)) End
  299.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL016
  300.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL012
  301.     Goto LABEL015
  302.     :LABEL016
  303.     AnsiPos 11, 7
  304.     Print STRING005 + STRING011
  305.     AnsiPos 11, 8
  306.     Print STRING004 + STRING012
  307.     AnsiPos 11, 9
  308.     Print STRING005 + STRING013
  309.     Color 0
  310.     Print " "
  311.     Backup 1
  312.     :LABEL017
  313.     STRING003 = ""
  314.     While ((STRING003 == "")) STRING003 = Inkey()
  315.     If (STRING003 == Chr(13)) Goto LABEL036
  316.     If (STRING003 == Chr(27)) End
  317.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL018
  318.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL014
  319.     Goto LABEL017
  320.     :LABEL018
  321.     AnsiPos 11, 8
  322.     Print STRING005 + STRING012
  323.     AnsiPos 11, 9
  324.     Print STRING004 + STRING013
  325.     AnsiPos 11, 10
  326.     Print STRING005 + STRING014
  327.     Color 0
  328.     Print " "
  329.     Backup 1
  330.     :LABEL019
  331.     STRING003 = ""
  332.     While ((STRING003 == "")) STRING003 = Inkey()
  333.     If (STRING003 == Chr(13)) Goto LABEL037
  334.     If (STRING003 == Chr(27)) End
  335.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL020
  336.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL016
  337.     Goto LABEL019
  338.     :LABEL020
  339.     AnsiPos 11, 9
  340.     Print STRING005 + STRING013
  341.     AnsiPos 11, 10
  342.     Print STRING004 + STRING014
  343.     AnsiPos 11, 11
  344.     Print STRING005 + STRING015
  345.     Color 0
  346.     Print " "
  347.     Backup 1
  348.     :LABEL021
  349.     STRING003 = ""
  350.     While ((STRING003 == "")) STRING003 = Inkey()
  351.     If (STRING003 == Chr(13)) Goto LABEL038
  352.     If (STRING003 == Chr(27)) End
  353.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL022
  354.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL018
  355.     Goto LABEL021
  356.     :LABEL022
  357.     AnsiPos 11, 10
  358.     Print STRING005 + STRING014
  359.     AnsiPos 11, 11
  360.     Print STRING004 + STRING015
  361.     AnsiPos 11, 12
  362.     Print STRING005 + STRING016
  363.     Color 0
  364.     Print " "
  365.     Backup 1
  366.     :LABEL023
  367.     STRING003 = ""
  368.     While ((STRING003 == "")) STRING003 = Inkey()
  369.     If (STRING003 == Chr(13)) Goto LABEL039
  370.     If (STRING003 == Chr(27)) End
  371.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL024
  372.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL020
  373.     Goto LABEL023
  374.     :LABEL024
  375.     AnsiPos 11, 11
  376.     Print STRING005 + STRING015
  377.     AnsiPos 11, 12
  378.     Print STRING004 + STRING016
  379.     AnsiPos 11, 13
  380.     Print STRING005 + STRING017
  381.     Color 0
  382.     Print " "
  383.     Backup 1
  384.     :LABEL025
  385.     STRING003 = ""
  386.     While ((STRING003 == "")) STRING003 = Inkey()
  387.     If (STRING003 == Chr(13)) Goto LABEL040
  388.     If (STRING003 == Chr(27)) End
  389.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL026
  390.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL022
  391.     Goto LABEL025
  392.     :LABEL026
  393.     AnsiPos 11, 12
  394.     Print STRING005 + STRING016
  395.     AnsiPos 11, 13
  396.     Print STRING004 + STRING017
  397.     AnsiPos 11, 14
  398.     Print STRING005 + STRING018
  399.     Color 0
  400.     Print " "
  401.     Backup 1
  402.     :LABEL027
  403.     STRING003 = ""
  404.     While ((STRING003 == "")) STRING003 = Inkey()
  405.     If (STRING003 == Chr(13)) Goto LABEL041
  406.     If (STRING003 == Chr(27)) End
  407.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL028
  408.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL024
  409.     Goto LABEL027
  410.     :LABEL028
  411.     AnsiPos 11, 13
  412.     Print STRING005 + STRING017
  413.     AnsiPos 11, 14
  414.     Print STRING004 + STRING018
  415.     AnsiPos 11, 15
  416.     Print STRING005 + STRING019
  417.     Color 0
  418.     Print " "
  419.     Backup 1
  420.     :LABEL029
  421.     STRING003 = ""
  422.     While ((STRING003 == "")) STRING003 = Inkey()
  423.     If (STRING003 == Chr(13)) Goto LABEL042
  424.     If (STRING003 == Chr(27)) End
  425.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL030
  426.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL026
  427.     Goto LABEL029
  428.     :LABEL030
  429.     AnsiPos 11, 14
  430.     Print STRING005 + STRING018
  431.     AnsiPos 11, 15
  432.     Print STRING004 + STRING019
  433.     AnsiPos 11, 4
  434.     Print STRING005 + STRING008
  435.     Color 0
  436.     Print " "
  437.     Backup 1
  438.     :LABEL031
  439.     STRING003 = ""
  440.     While ((STRING003 == "")) STRING003 = Inkey()
  441.     If (STRING003 == Chr(13)) Goto LABEL043
  442.     If (STRING003 == Chr(27)) End
  443.     If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL008
  444.     If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL028
  445.     Goto LABEL031
  446.     :LABEL032
  447.     Cls
  448.     KbdStuff "R;A" + Chr(13)
  449.     End
  450.     :LABEL033
  451.     Cls
  452.     KbdStuff "R;ALL" + Chr(13)
  453.     End
  454.     :LABEL034
  455.     Cls
  456.     KbdStuff "R;FROM" + Chr(13)
  457.     End
  458.     :LABEL035
  459.     Cls
  460.     KbdStuff "R;N" + Chr(13)
  461.     End
  462.     :LABEL036
  463.     Cls
  464.     KbdStuff "R;S" + Chr(13)
  465.     End
  466.     :LABEL037
  467.     Cls
  468.     KbdStuff "R;TO" + Chr(13)
  469.     End
  470.     :LABEL038
  471.     Cls
  472.     KbdStuff "R;TS" + Chr(13)
  473.     End
  474.     :LABEL039
  475.     Cls
  476.     KbdStuff "R;U" + Chr(13)
  477.     End
  478.     :LABEL040
  479.     Cls
  480.     KbdStuff "R USER"
  481.     End
  482.     :LABEL041
  483.     Cls
  484.     KbdStuff "R;WAIT" + Chr(13)
  485.     End
  486.     :LABEL042
  487.     Cls
  488.     KbdStuff "R;Y" + Chr(13)
  489.     End
  490.     :LABEL043
  491.     Cls
  492.     KbdStuff "R;YA" + Chr(13)
  493.     End
  494.  
  495. ;------------------------------------------------------------------------------
  496. ;
  497. ; Usage report (before postprocessing)
  498. ;
  499. ; ■ Statements used :
  500. ;
  501. ;    29      End
  502. ;    12      Cls
  503. ;    1       Wait
  504. ;    22      Color 
  505. ;    73      Goto 
  506. ;    46      Let 
  507. ;    81      Print 
  508. ;    3       PrintLn 
  509. ;    77      If 
  510. ;    2       DispFile 
  511. ;    3       FCreate 
  512. ;    1       FOpen 
  513. ;    4       FClose 
  514. ;    6       FGet 
  515. ;    37      FPutLn 
  516. ;    1       Delete 
  517. ;    4       Delay 
  518. ;    3       Tokenize 
  519. ;    14      KbdStuff 
  520. ;    52      AnsiPos 
  521. ;    22      Backup 
  522. ;
  523. ;
  524. ; ■ Functions used :
  525. ;
  526. ;    77      +
  527. ;    95      ==
  528. ;    1       >
  529. ;    5       !
  530. ;    24      ||
  531. ;    1       Upper()
  532. ;    41      Chr()
  533. ;    14      Inkey()
  534. ;    12      PPEPath()
  535. ;    5       GetToken()
  536. ;    5       Exist()
  537. ;    1       TokenStr()
  538. ;    1       TokCount()
  539. ;
  540. ;------------------------------------------------------------------------------
  541. ;
  542. ; Analysis flags : No flag
  543. ;
  544. ;------------------------------------------------------------------------------
  545. ;
  546. ; Postprocessing report
  547. ;
  548. ;    0       For/Next
  549. ;    0       While/EndWhile
  550. ;    2       If/Then or If/Then/Else
  551. ;    0       Select Case
  552. ;
  553. ;------------------------------------------------------------------------------
  554. ;                 AEGiS Corp - Break the routines, code against the machines!
  555. ;------------------------------------------------------------------------------
  556.